home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
ls 4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
814b
|
34 lines
100 REM SPRITEDATEN
110 REM *****************************
120 FOR N=8192 TO 8254:READ Q:POKE N,Q:NEXT
130 DATA 0,160,0,2,168,0,2,145,64
140 DATA 10,85,64,10,85,0,40,84,0
150 DATA 0,208,0,0,240,0,1,124,0
160 DATA 5,255,0,23,255,0,23,255,64
170 DATA 5,255,80,1,252,80,0,168,0
180 DATA 0,170,0,2,250,128,10,194,128
190 DATA 91,2,128,92,6,128,21,69,84
200 REM *****************************
210 REM PROGRAMMSTART BEWEGEN
220 REM
230 REM VORBEREITUNGEN
240 REM
250 POKE 53280,5:POKE53281,0
260 POKE 53285,8:POKE53286,11:POKE53287,7
270 POKE53276,1:REM SPRITE 0 MULTICOLOR
280 XREG=53248:XLAUF=53264
290 YREG=53249
300 POKE 2040,128:REM SPRITEZEIGER AUF DATEN
310 POKE XREG,0:POKE XLAUF,0:POKE YREG,100:REM ANFANGSPOS.
320 POKE 53269,1:REM SPRITE 0 AN
330 REM
340 REM SPRITE ANIMIEREN
350 REM
360 FOR X=1 TO 350
370 XP=X
380 IF XP<=255 THEN POKE XLAUF,0
390 IF XP>255 THEN POKE XLAUF,1:XP=XP-255
400 POKE XREG,XP
410 NEXT X
420 GOTO310